home *** CD-ROM | disk | FTP | other *** search
s_CurrentCursor This editor requires the authoring version of ToolBook. s_dialogWindow ToolBar oinitDLLs initEditor Dialog newDialog enterApplication group group s_Browse command s_Browse rightbuttonDown -$, 7 s_dialogWindow , 0,0,0,bold FChooseFontDlg newFont oldSelection forceExists,noGDI,noVector,screen s_DialogTemplate character reader dialog.hlp dlg_WinHelp contents contents + , / -$, 7 + , / objList button group s_dlgBaseUnits rs_dlgBaseUnits ToolPalette ToolBar MS Sans Serif dlg_disable s_DialogTemplate resName initEditor CreateFontIndirect dlg_CreateFontIndirect SelectObject dlg_SelectObject ,#TIVo getTextExtent dlg_getTextExtent DeleteObject dlg_DeleteObject ,#TeOo tb30dlg.dll dialog getValue SetValue dialogCallback OpenFileDlg SaveAsDlg chooseFontDlg setBitmapData setIconData enableControl setControlText getControlText kernel GlobalHandle dlg_GlobalHandle GlobalAlloc dlg_GlobalAlloc GlobalLock dlg_GlobalLock GlobalUnlock dlg_GlobalUnlock GlobalFree dlg_GlobalFree getDC dlg_getDC ReleaseDC dlg_ReleaseDC DestroyIcon dlg_DestroyIcon SendMessage dlg_SendMessage WinHelp dlg_WinHelp initDLLs s_dialogWindow s_Dirty Save current changes? saveDialog checkSave s_dialogWindow initViewer s_Browse Toolbar browse +*+U!8 s_dialogWindow clearDialog checkSave newDialog + , #> + , # + , # ,%H.% + , #? + , #> + , #> + , #? + , ! + , ! + , ! + , #> +*+U!8 propList s_dialogWindow kgetValue No dialog templates were found in Book s_CurrentCursor initialValues currProp s_currentFile Dialog template (*.DIA),*.DIA,ToolBook Book (*.TBK),*.TBK,SysBook (*.SBK),*.SBK showDialog of book vsetValue newCaption buildFrame checkClear File is empty. OpenFileDlg LoadTemplateBOX ToolBar propList s_dialogWindow s_CurrentCursor initialValues currProp s_currentFile newCaption dialogTemplate retVal initProp templateName tempList dialogTemplate dialogName listbox templates LoadTemplateInit checkSave initProp buildItems targetBook ToolBook Dialog Editor - dialog OpenDialog s_currentFile -SaveDIA saveAsDlg Dialog Template (*.DIA), *.DIA saveDialog Save as s_currentFile -SaveDIA saveAsDlg Dialog Template (*.DIA), *.DIA saveDialogAs + , ! + , !; + , !; + , !; + , ! + , #> ToolBook Dialog Editor - s_dialogWindow s_CurrentCursor s_currentFile buildDialogItems buildDialogHeader ToolBar s_InitialValues s_DialogTemplate SaveDIA .&, #> .&, #> w, #> + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / + , / +*+ t |pushbuttonPropertiesInit kgetValue STATIC s_CurrentCursor button Password Bitmap Control Place Holder button true ID_OK newBMP CustomPropertiesInit .?newIcon edit Name Y%controlProperties button radio iedit ypos dialogName ID_CANCEL BitmapPropertiesInit BUTTON button scroll dialog CustomPropertiesBOX iedit xpos BITMAP oPpushbuttonPropertiesBox reader targetBook Z%controlProperties checkbox ButtonIDs comboboxPropertiesBOX button TRUE edit Caption button checkbox &ID_OK static ID bitmap vAdialogCallback iedit layer staticPropertiesInit groupboxPropertiesInit checkRadioPropertiesBox bitmap current Bitmap button default listboxPropertiesBOX FALSE Button Password rectangle comboboxPropertiesInit edit caption CUSTOM center iconPropertiesBOX button discard LISTBOX edit name GROUPBOX addButtonID edit text edit items /?newIcon button single newBmp vsetValue button sort iedit dropDownLength edit className button accept s_dialogWindow fdialogPropertiesBOX removeButtonID Group 9checkRadioPropertiesInit EDIT Name groupBoxPropertiesBOX icon current icon COMBOBOX right button editable [EiconPropertiesInit retValue controlProperties WordWrap dialogPropertiesInit button false editPropertiesBOX combobox controlID &ID_CANCEL newBmp listboxPropertiesInit oldID edit resourceName qBitmapPropertiesBOX pushbutton edit Items dialogName iedit style &CeditPropertiesInit iedit Layer ctrlID o{staticPropertiesBOX Properties ,%H.% buttonIDs buttonIDs removeButtonID ,%H.% FALSE buttonIDs buttonIDs addButtonID s_dialogWindow 4controlState FALSE ToolBar YWMkeyUp WMkeyUp ,!J(" 4controlState s_dialogWindow WMkeyDown ToolBar yDlgUnitsToPageUnits dlg_sendMessage WMkeyDown w, #> w, #? targetBook dialogName s_dialogWindow s_CurrentCursor s_DialogTemplate FALSE cmdString templateScript scriptMessage bFound setScript currentIcon resList s_InitialValues dialogName as userProperties of the book BOX of book targetBook of self to s_DialogTemplate; ToolBook (*.TBK), *.TBK, SysBook (*.SBK), *.SBK handler. The handler has been placed on the clipboard FALSE has been added to the book script of that book. To display the dialog, dialogName s_dialogWindow bFound message information *.tbk buildDialogItems and a handler for the message show You must give the dialog a name. Please specify a name below. verifyDialogName ;0normalScript buildDialogHeader targetBook openFileDlg Choose target book for Dialog Template... The specified file is not a book. icon id 114 currentIcon INIT of book targetBook of self to s_InitialValues dialogName to append the send the show . There is not enough room in the book script of book s_InitialValues s_CurrentCursor The dialog template and initialization values have been placed in book resList _DLGNAME_ build 1, #> ,%H.% w, #> w, #> w, #? w, #? w, #? Enter new name for dialog. continue dialogName isViewer retValue FALSE template isTemplate of book viewer FALSE,FALSE Unable to make handler name and userProperties from dialog name. FALSE There is already a viewer with this name in book !@#$%^&*()-,./?><;':[]{}\|=+`~ There is already a dialog template with this name in book targetbook If you continue the existing dialog template will be overwritten &Rename verifyDialogName The Dialog name must begin with a letter. There is already a viewer and a dialog template with this name in book targetBook rename If you continue the viewer will be added If you continue the template will be added &Abort <> null but no script will be placed in the book. BOX of book 1234567890 dialogName a SPACE or a TAB TRUE,TRUE If you continue the existing viewer will be deleted and a new one &Continue created ' character is not valid in handler or property names. The Dialog name cannot contain any of the following characters: The ' verifyDialogName w, #> + , / + , / + , / w, #> targetBook dialogName PUSHBUTTON Z%controlProperties ToolBook (*.TBK), *.TBK, SysBook (*.SBK), *.SBK handler. The handler has been placed on the clipboard objList s_CurrentCursor has been added to the book script of that book. To display the dialog, dialogName Y%controlProperties s_dialogWindow message newDlgViewer Group *.tbk and a handler for the message show controlProperties You must give the dialog a name. Please specify a name below. verifyDialogName FALSE integerOnlyScript targetBook openFileDlg has been created in book dialog 8ViewerScript The specified file is not a book. newDlgPage trueAcceptScript The dialog Viewer dialogName to append the send the show . There is not enough room in the book script of book falseCancelScript Choose target book for Dialog Viewer... center currentObject _DLGNAME_ buildViewer aboutinit UraboutBOX vAdialogCallback aboutdialog dialogHelp +*+Dr s_dialogWindow s_CurrentCursor buildDialogItems buildDialogHeader ToolBar Preview3D s_InitialValues s_DialogTemplate dialog ShowDialog +*+Dr Cancel s_dialogWindow &Cancel s_CurrentCursor Do you want to clear the existing dialog? clearDialog checkClear +*+Dr ToolBook Dialog Editor - <Untitled> s_dialogWindow ID_OK s_dirty showDialog ToolBar targetBook addButtonID Dialog buttonIDs dialogName ID_CANCEL clearDialog vdlg_GlobalAlloc Memory Allocation failed. Operation Aborted. Pdlg_GlobalLock getWinPointer dlg_GlobalUnLock dlg_GlobalHandle dKdlg_GlobalFree Memory error occured. Operation Aborted. freeWinPointer + , / + , / baseUnits baseUnits s_DialogTemplate dlgUnitsToPixels + , / + , / baseUnits baseUnits s_DialogTemplate dlgUnitsToPageUnits + , / + , / baseUnits baseUnits s_DialogTemplate PixelsToDlgUnits + , / + , / baseUnits baseUnits s_DialogTemplate pageUnitsToDlgUnits + , / + , / + , / + , / ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz freeWinPointer $bgetWinPointer dlg_ReleaseDC s_dlgBaseUnits tdlg_getDC dlg_getTextExtent dlg_DeleteObject dlg_CreateFontIndirect dlg_SelectObject baseUnits edit resourceName getControlText AenableControl TBKDialogInit targetBook ToolBook (*.TBK), *.TBK, SysBook (*.SBK), *.SBK ICON current icon setControlText setIconData dlg_DeleteObject Bitmap *.tbk dlg_DestroyIcon targetBook openFileDlg edit resourceName You must name the selected resource. .?newIcon >setBitmapData BITMAP Current Bitmap getControlText Button Choose Icon /?newIcon AenableControl newBmp newBmp Button Choose Bitmap Choose target book for Resource... TBKDialogCommand false,false,false,false,false,false,true oldState ToolPalette button ToolPalette selectedTool buttonClick select ToolPalette enterPage --This handler sets the selected ToolPalette Bthat --was clicked on buttonClick selectedTool initializes 35,48 selectChars ToolPalette Button id 37 of Page id 1 buttonPressed groupbox recTool Button id 37 of Page id 1 invertedButton Button id 40 of Page id 1 oldInvertedButton custom ctrlID checkbox ctrlID radiobutton ctrlID field ctrlID borderlessField ctrlID bitmap ctrlID singleSelectListbox ctrlID combobox ctrlID ctrlID select ctrlID groupbox ctrlID button ctrlID Button id 37 of Page id 1 dlg_custom dlg_checkbox dlg_radiobutton dlg_field dlg_borderlessfield dlg_bitmap dlg_singleSelectlistbox dlg_combobox dlg_icon dlg_select dlg_groupBox dlg_button dlg_openDialog dlg_saveDialog dlg_properties dlg_character dlg_undo dlg_disableUndo dlg_duplicate dlg_disableDuplicate dlg_BringToFront dlg_DisableBringToFront dlg_SendToBack dlg_disableSendToBack dlg_showDialog dlg_disableshowDialog dlg_sendFarther dlg_DisableSendFarther dlg_bringCloser dlg_disableBringCloser dlg_saveDialogas wwwwwwwwww wwusww wwwwwwwwww wCawp wCTwp wmawp wngwp wu wp wvewp whawp wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwwwftww wppwwwpp wpwpwpwp w %wpww witwpwwpwwp wpwpwpwp wngwppwwwpp wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwx wwwpwwpwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwqw wwwqq wwwww wwwwqwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwtDDGwwwftwwtDDDDGww wwDDDDDDww DGwSOwtDDO DDGwHOwDDDO wDDDO wDDDO wDDDO DDDwIPwDDDO DwDDD wDDDDDDDDwADwtDDO wwtDO DGwwG wwwtDDGwwwPTwwwwwwwwww wwwwwwwwww wwwwwwwwwwe wwwwwwwwwwchwwwwwp www ywwwww www swwwww wwwt wwp wwwww wwwww wwwwww wwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww uswpwwwwwww wpwwwwwww Ewpwwwwwww wpwwwwwww wpwwwwwww Cawpwwwwwww wpwwwwwww wpwwwwwww wpwwwwwww CTwpwwwwwww mawpwwwwwww ngwpwwwwwww u wpwwwwwww vewpw wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwwwftwwwwwwwwww wwwwwx wwwwwx wwwwwwwwww wwwwwwwwww wwwwwwwwww0 wwwwwwwwww UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUP UUUUU UUUUUP UUUUUUUUUU UUUUUUUUUU wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUU PPUUUUUUUU PPUUUUUUUU UPUUUUUUUU UUUUUUUUUU ffffffffff ffffffffff ffffffffff ffffffffff ffffffffff ffffffffff ffff` ffffo fffff ffffffffff ffffffffff ffffffffff ffffffffff ffffffffff ffffffffff fofffo ffffffffff ffffffffff ffffffffff UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU U^UUU^ UUU_U UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUUP UUUU^ UUUUU UUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUU^ UUUU_ UUUUU UUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUUU UUUUU UUUUU UUUUUP UUUUUU UUUUUUPUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUU UUUUU UUUUU UUUUU^ UUUUUU UUUUUU^UUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUP UUUUUU UUUUUP UUUUUP UUUUU UUUUUU UUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUU UUUUUU^ UUUUUU UUUUU^ UUUUU UUUUUU UUUUUU UUUUUUUUUU wwwwwwwwww wwwwwww pwwwp wwpwwwp wwwwwww wwwwwwwwww wwwwwwwwww wwwwwww xwwwx wwxwwwx wxxxwwx wwwwwww wwwwww wwwwwwwwww UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUP UUUUUU UUUUUU UUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUU UUUUUU^ UUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUUU UUUUU UUPUU UUUUP UUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUUUUUU UUUUUU UUUUU UUUUU UUUU^ UUUUU UUUUUUUUUU wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww?Fwwx wwwwp ToolPalette ToolBar toolbar openDialog ctrlID wsgroup Open a dialog Template helpText saveDialog yhelpText saveDialogAs dlg_saveDialogAs saveDialog dlg_saveDialog Save the dialog under a new name Save the dialog toggleState notifyBefore toggleState isControl "saveDialogAs" onormalGraphic bitmap "dlg_saveDialogAs" ohelpText "Save the dialog under a ctrlID Save the dialog helpText properties ctrlID Edit the properties of the selected control helpText character ctrlID Set the font for the dialog box helpText ctrlID Undo/Redo last action helpText ItemSelected duplicate buttonDoubleClick buttonClick ctrlID Duplicate the selected control helpText bringToFront yhelpText dlg_BringToFront dlg_disableBringToFront bringCloser dlg_bringCloser Bring the selection closer dlg_disablebringCloser Bring the selection to the front bringToFront toggleState notifyBefore toggleState isControl onormalGraphic bitmap "dlg_bringCloser" odisabledGraphic ,disablebringCloser" ohelpText "Bring the closer" BringToFront" disableBringToFront" afront" ctrlID Bring the selection to the front helpText sendToBack dlg_sendFarther dlg_disableSendFarther yhelpText sendToBack dlg_sendToBack dlg_disableSendToBack Send the selection farther Send the selection to the back sendFarther toggleState notifyBefore toggleState isControl onormalGraphic bitmap "dlg_sendFarther" odisabledGraphic ,disableSendFarther" ohelpText farther" |ToBack" disableSendToBack" ctrlID Send the selection to the back helpText showDialog ctrlID Preview the dialog helpText Position controlPosition controlPosition value Position of selected control in sialog units helpText 25,2523380952381,115.2 TBKDialogCommand TBKDialogInit oldBar ,msgTxt ToolBar statusBar friend TBKDialogCommand TBKDialogDestroy TBKDialogInit hDlg, hWndFocus translateWindowMessage on 0x0203 TBKDialogCommand bCtrlID, hWndCtrl, msgNumber, ControlName ( = 0 + bitAND 2) <> 0 "ToolBar" StatusBar oldBar = statusBar msgTxt ofriend) TBKDialogDestroy field id 53 friend Position: controlSize controlSize value Size of selected control in sialog units helpText 208 x 14546153846153858.4615384615385 * * * Dialog Editor version 3.0 enhancements by Jeffrey Ayars * * * msgTxt Size::::: toggleState ToolBar To save your dialog box template: choose save... or save as ... from the file menu To use your dialog box in a book: choose Assign Template to book... from the file menu To edit a dialog you have assigned to a book: choose open... from the file menu choose the book from the dialog choose the dialog box from the listbox To edit a saved dialog box template: choose open... from the file menu change the filter to .dia and choose the file To edit a dialog box from a converted 1.5 book: copy the button with the DLGBOX and DLGINIT user properties onto the clipboard paste the button into the editor To resize the dialog box: hold down the CONTROL key and resize the editor window Dialog Dlg_MyAppIcon wp{31 ffffffff ffffffff wwwwwwwp wwwwwwwp DDDDDD@ DDDDDDDD@ DDDDD DDDD@ DDDDD DDDD@ DDDDDD DDDDD DDDDDD DDDDD DDDDDD DDDDD DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDO DDDDD@ DDDDO DDDDD DDDDDDDDDDDDDD DDDDDDDDDDDDDD DDDDD DDDDD@ DDDDO DDDD@ --This handler initializes the editor. It links DLLs used +ToolBar, Dialog, ToolPalette viewers, Ftranslates emessages enterApplication 4OBJECT s_dialogWindow 4WORD s_CurrentCursor sysRuntime requires authoring version ToolBook." = TRUE p = 1 initDLLs initEditor following use a ,mode extension within --For now, I don't want kloaded instance. newDialog focusWindow = FALSE --Prevent nested , they have no meaning templates ) > 1 -- xallow --Only be shown s_Browse 4LOGICAL --only rightClick access rightbuttonDown --Display user choose font 4s_DialogTemplate oldSelection = currentPage --KLUDGE enabled sysOpenWindows newFont = ChooseFontDlg( &", 0,0,0, 7", "forceExists,noGDI,noVector,screen") --END contents dlg_WinHelp(windowHandle .hlp",257," INITIALIZTION/RESOTRATION HANDLERS states turn off sys3DInterface 4STRING , s_dlgBaseUnits t= "MS Sans Serif" v= BOLD sysTransparent = sysDrawDirect = sysReaderRightClick = sysUseWindowsColors = sysShowMRUFiles = objList = ) > 0 resName = " normalGraphic invertGraphic bitmap ) > 0 disabledGraphic dlg_disable"& --Link dll functions --The DLL display dialogs created linkDLL "tb30dlg. getValue( SetValue( dialogCallback( OpenFileDlg( , INT) SaveAsDlg( chooseFontDlg( T etBitmapData( s etIconData( } enableControl( setControlText( getControlText( --See Microsoft SDK documentation more information. dlg_CreateFontIndirect = (POINTER) dlg_SelectObject = DWORD dlg_getTextExtent = U dlg_DeleteObject = kernel WGlobalHandle = pGlobalAlloc = dlg_GlobalLock = GlobalUnlock = GlobalFree = DC = getDC( ReleaseDC = INT dlg_DestroyIcon = SendMessage = handlers --sent closing down tell shut s_dirty been made xsaved checkSave s_Dirty defaultPage f"&Yes" "&No" saveDialog --Alias help --Toggles translated --are has no scripts , untranslating re-activates click explore architecture. browse Browsestate untranslateAllWindowMessages clientHandle "Toolbar" initViewer ) = --Shows necessary clears controls xisOpen clearDialog prompts a .DIA file that should be opened "tbkdlg.dll". decides operation, provides error checking. Ctrl-A (ANSI 1) vvalue specified . ^s_InitialValues --remaining portion Fsends buildFrame --buildItem , whose corresponding rebuild OpenDialog s_currentFile tempList, templateName, , retVal Z (*.DIA),*. (*.TBK),*. ,SysBook (*.SBK),*. ", 2) upperCase( --If a 8was selected Flook there property isObject("BOOK" && QUOTE & propList = currProp len = % = "box" initProp = r) & CRLF --If some -- = LoadTemplateInit = setValue( , "listbox (LoadTemplateBOX dialogName len-3 targetBook newCaption = " - " & && " " && dialogTemplate = 8" && initialValues = && " 8" && were found --If -- I separate empty." sysErrorNumber = 0 - " & [them wants be cleared checkClear --Build values buildItems B"showDialog" ) > 0) ...". --specifies a valid writen. = saveAsDlg(" "", " *.DIA", 1) SaveDIA %...". saveDialogAs "", " <> calls buildDialogXXX "drawing". These Fwritten <> buildDialogHeader buildDialogItems o(1) strings - " & s invoked each }-clicks on a selects "Properties..." It will appropriate %determined currently }clicked on. x hWnd, Msg, wKeyFlags, xClientPos, yClientPos ZARRAY ctrlProperties[5] ,targetObj y --Menu --Double -- key pressed doubleclick > 1 = 0 = 0 ) objectFromPoint(ClientToPageUnits( controlProperties --Check type 1] = "BUTTON" --PushButtons different than Checkboxes RadioButtons --because you can ID_OK, ID_CANCEL, --IdNumber "pushbutton" = pushbuttonPropertiesBox #esInit --Translate )!controlID ctrlID = "& oldID = " ^" & !,"combobox & ButtonIDs 4] = ]" = Baccept", Bdiscard", 1#same " so done together = checkRadioPropertiesBox #,"static ID", Bradio", -$ = L$ = p$ = 4]) ) $,"iedit -- $ box. retValue -- /&specific 2] = 1 removeButtonID(" 2] = 2 2] = xisType(REAL, addButtonID( O 4] = 4] = " 4] = " 4] = 4] = 1] = "GROUPBOX" ( = groupboxPropertiesInit (,"e235", ),"e240", ") = +),"s245", R) = [),"i250", z) = -- ((groupBoxPropertiesBOX 1] = "EDIT" * = editPropertiesInit *,"s240", #+,"i245", B+ = b+ = k+,"e250", +,"b200",(fieldType = WordWrap)) +,"b205", +,"b210", ,,"b220", &,,"b215", @, = BPassword", j, = s,,"b225", ,,"b255", ,,"b260", ,,"b265", !- = J- = ,(editPropertiesBOX SingleLineWrap 4] = K , " 4] = i , " 4] = 4] = 4] = 4] = 1] = "STATIC" / = staticPropertiesInit 50 = b0 = %1 = O1 = y1 = 1,"b270", <1(staticPropertiesBOX 1] = "LISTBOX" 3 = listboxPropertiesInit =4 = ^4 = y4 = Bsingle", 4,"b280", 4,"b275", V4(listboxPropertiesBOX 4] = 4] = 4] = 4] = 1] = "COMBOBOX" p6 = comboboxPropertiesInit 07 = dropDownLength",lineCount d7 = ",DropDownItems ",sortItems ",scrollable Beditable",Editable Y7(comboboxPropertiesBOX dropDownItems 1] = "ICON" 9 = iconPropertiesInit 22", Layer", !: = ]: = resourceName", --uses :chooseResource N:, iconPropertiesBOX newIcon 1] = "BITMAP" U< = BitmapPropertiesInit x< = ,= = x5" && c= = -- =, BitmapPropertiesBOX newBmp newBMP 4 Place Holder" <!1] = "CUSTOM" k? = CustomPropertiesInit '@ = D@ = className", h@ = style", k"4]) ?(CustomPropertiesBOX 8#3] = R# = k#4] = --If = NULL A = dialogPropertiesInit &B = EB = xpos", hB = ypos", (dialogPropertiesBOX --If {wasn't 1$array 8% <> selectionChanged B = 1 Cremoves 2IDString available --IDs. cover #; makes easier read. obuttonIDs Dadds textlineCount( &strokes also called It just resets EDialogFrame WMkeyUp a, b, controlState( b <> 0 It handles F'nudge' behavior --arrow F unit Iinstead --pixel hanges Fboarder resizing G buttons. WMkeyDown a, b, , c, d "ThickFrame" )<= keyDownArrow lockScreen DlgUnitsToPageUnits(1,1) dx = dy = H-dx, 0 H0, -dy Hdx, 0 H0, dy --Make Halt dlg_sendMessage( H", b, key, c bitOR (d bitShiftLeft 16)) b <> 0 "Assign 8..." FsetScript CscriptMessage, templateScript, cmdString @I = 4 --If I 8yet, (where openFileDlg(" F...", \ "*.tbk", ".", " I (*. E8 *.TBK, F8 *.SBK", 1) r<> -1 J = 1 without changing ;would 8doesn't yet. 114", bFound = resList = resourceList( )) > 0 currentIcon --If p, I --names ("You must give Please specify a pbelow." --strip spaces, cannot ~(" ", ~(" ", verifyDialogName( M = 1 --If I am going = normalScript ~("_DLGNAME_", ) > 65535) = ". There xenough room 8"&& append the"&&\ Bplaced on Oclipboard" = " x:&&\ Badded O,"&&\ --Add L;"&\ initialization 8"&& \ &"." P = 1 8,, msg NisTemplate, isViewer _,= " i = 1 "1234567890" begin fa letter." "!@#$%^&*()-,./?><;':[]{}\|=+`~"& SPACE & TAB & H-= " msg = " I'"& <& "' contain t&"!@#$%^&*()-,./?><;':[]{}\|=+`~"& t?&"a "Unable already a 8" && 0@&" <> 8"&& 8" &&\ targetbook & "." 8" &&\ & "." 8" &&\ & "." 4ontinue Uxisting 7 be overwritten " 8 be <8 be deleted e2"&\ 8 be "but no 8 be f"&Continue" "&Rename" "&Abort" = "rename" ("Enter buildViewer V = 4 ...", \ "*. V (*. ?E *. >E *. r<> -1 W = 1 p, I X = 1 ~(" ", ~(" ", iYcorrect userProperty Y = 1 could Wchanged = ViewerScript ) > 65535) = ". 8"&& iE&&" = " [,"&&\ newDlgPage = copyObject( d[", clientSize newDlgpage skipNavigation fU) > 0 currentObject >1] = " ?4] = !?4] = integerOnlyScript = "PUSHBUTTON" ?4] = trueAcceptScript falseCancelScript newDlgViewer = n]", autosize defaultPosition " && H&& " 8" &&\ & "." ^ = 1 _displays ^ About ^..." picked. aboutdialog e, aboutBOX aboutinit dialogHelp %modal close _preview ShowDialog @Z = menuItemChecked("Preview3D" _ = 4 _ = 1 4aasks --action occurs. "&No" a = 4 Ba = 1 D on --(Other TNOT %well. xPos yPos )c") 425, 300 4b - <Untitled>" UTILITY FUNCTIONS mH two forget keeping global memory Callocate. getWinPointer pBytes dlg_GlobalAlloc(66, -- 66 = (moveable + zeroinit) "Memory Allocation failed. Operation Aborted." freeWinPointer pPointerToGlobalMemory AdhMem dlg_GlobalHandle( bitAnd 0x0000FFFF ^eselector. dlg_GlobalUnLock( Toccured. dlg_GlobalFree( --Convert :e units pixels dlgUnitsToPixels x, y ZnewX, newY baseUnits = --width ] = ((x * _) / 4) --Height fheight = ((y * ) / 8) dlgUnitsToPageUnits x, y pageUnits -per gx direction = ((x * sysPageUnitsPerPixel) / 4) = ((y * xel) / 8) PixelsToDlgUnits x, y 4 times = ((x / ) * 4) = ((y / ) * 8) pageUnitsToDlgUnits x, y divided = ((x * 4) / ( = ((y * 8) / ( --Acutally calucate YfontName --point E$depends on 410pt Bold, =kAPI P getDialogBaseUnits() gives other fonts, be calculated. component hbeing always widths, I %c a logical slntire alphabet ( I cache d gets 'a lot (everytime H], a couple , etc..) a comma seperated , fontPtSize ZlExtent, baseWidth, baseHeight, pLogFont, hFont, hPreviousFont, hDC --If we p, recalculate , otherwise use ncached }h <> h <> kstructure --fill 1(18, .(8, negative ocell --multiplying inch points physical --1440 .(0, * ((1440/ l) / 72)) ) --Now I hDC = dlg_getDC(sysClientHandle) caluclate pavarage ,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", 52) --0 masks rqhigh = TRUNCATE(( ) / 52) --16 bits bitShiftRight 16) clean Up f(hDC, dlg_ReleaseDC( $l = }rcallback TBKDialogInit hDlg, hWndFocus TBKDialogCommand XCtrlID, hWndCtrl, msgNumber, ControlName = 0 7 = 1 -- = 0 controlName = " N9...", \ .s (*. setBitmapData( ", GDIHandle( = 0 ;...", \ t (*. ec *. dc *. T<"") setIconData( Dialog T<"") setIconData( Dialog ttonIDs System System Fo@_} MS Sans Serif Arial staticpropertiesinit aboutinit comboboxpropertiesinit icon id 100 about ,G2687,Options EDIT Name,E235, iedit Layer,i245, iedit DropDownLength,i248, EDIT Items,E250, BUTTON sort,B270,TRUE BUTTON scroll,B18,FALSE BUTTON editable,B119,FALSE ,B1,TRUE ,B2,FALSE ,S252,Layer ,S254,Control ID: ,S251,Name ,S255,Combobox Items ,S253,Dropdown Length STATIC ID,S240,ID ,G2667,Style ,S253,Layer ,S254,Control ID: ,S252,Name ,S251,Listbox Items STATIC ID,S240,ID EDIT Name,E235, iedit Layer,i245, EDIT Items,E250, BUTTON single,B3392,FALSE ,B275,FALSE ,B280,FALSE ,B270,FALSE ,B1,TRUE ,B2,FALSE listboxpropertiesinit ,G4848,Justification ,S253,Layer ,S254,Control ID: ,S252,Name ,S6115,Initial Text ,S240,ID ,E235, ,i245, ,B255,FALSE ,B265,FALSE ,B260,FALSE ,E250, ,B205,FALSE ,B210,FALSE ,B215,FALSE BUTTON password,B2814,FALSE ,B220,FALSE ,B225,FALSE ,B200,FALSE ,B1,TRUE ,B2,FALSE editpropertiesinit ,G4828,Justification ,S252,Layer ,S253,Control ID ,S251,Name ,S254,Static Text ,S240,ID ,E235, ,i245, ,B255,FALSE ,B260,FALSE ,B265,FALSE ,E250, ,B270,FALSE ,B1,TRUE ,B2,FALSE iconpropertiesinit bitmapPropertiesInit LoadTemplateBOX ,S3151,Name ,S3154,Y Position ,S3155,X Position ,S2987,Caption EDIT Name,E3152, EDIT caption,E2988, iedit xpos,i3156, iedit ypos,i3157, ,B1,TRUE ,B2,FALSE dialogpropertiesinit falseCancelScript integerScript N.r-" edit name,e235, edit caption,e240, iedit layer,i250, ,b1,TRUE ,b2,FALSE ,s253,Layer ,s252,Control ID: ,s254,Caption static ID,s245,ID ,s255,Name groupboxpropertiesinit ,G2544,Icon ,S2532,Name ,S2533,Control ID ,S2534,Layer STATIC ID,S2542, ICON Current Icon,h2547,icon "default" ,S2949,Icon Name EDIT Name,E2540, iedit Layer,i2541, EDIT resourceName,E2950, ,B1,TRUE ,B2,FALSE BUTTON Choose Icon,B2543,FALSE PushButtonPropertiesINIT CheckRadioPropertiesBOX CheckRadioPropertiesINIT ,G2544,Bitmap ,S2532,Name ,S2533,Control ID ,S2534,Layer STATIC ID,S2542, BITMAP Current Bitmap,p2553, EDIT Name,E2540, iedit Layer,i2541, ,S2964,Bitmap Name EDIT resourceName,E2965, ,B1,TRUE ,B2,FALSE BUTTON Choose Bitmap,B2543,FALSE ,S2240,Name ,S2241,Layer ,S2242,Control ID STATIC ID,S2246,32789 ,S2247,Control Class ,S2249,Control Text ,S2278,Control Style EDIT Name,E2243, iedit Layer,i2636, EDIT ClassName,E2248, iedit Style,i2279, EDIT Text,E2250, BUTTON OK,B1,TRUE BUTTON Cancel,B2,FALSE customPropertiesInit 524480,14,25,25,230,131,,,Pushbutton Properties,8,MS Sans Serif,,6,43,28,12,253,1342177280,130,Layer,0,,63,43,39,12,252,1342177280,130,Control ID:,0,,6,25,33,12,254,1342177280,130,Caption,0,,6,10,33,12,255,1342177280,130,Name,0,name,37,6,125,13,235,1350631552,129,,0,caption,37,24,125,13,240,1350631552,129,,0,layer,37,43,20,12,250,1350631552,129,,0,,6,57,129,43,4782,1342177287,128,Button Action,0,ControlID,103,43,60,44,3253,1350631746,133,,0,Accept,20,72,78,9,200,1342177289,128,&Accept changes,0,Discard,20,84,80,9,205,1342177289,128,Cance&l the changes,0,Default,6,103,74,12,230,1342242819,128,&Default Pushbutton,0,,176,6,50,14,1,1342242817,128,&OK,0,,176,23,50,14,2,1342242816,128,&Cancel,0 PushButtonPropertiesBOX ,S253,Layer ,S252,Control ID: ,S254,Caption ,S255,Name EDIT name,E235, EDIT caption,E240, iedit layer,i250, ,G4782,Button Action COMBOBOX ControlID,C3253, BUTTON Accept,B200,FALSE BUTTON Discard,B205,FALSE BUTTON Default,B230,FALSE ,B1,TRUE ,B2,FALSE LoadTemplateINIT comboboxpropertiesBOX listboxpropertiesBOX editpropertiesBOX 524480,16,25,25,209,113,,,Checkbox/Radio button Properties,8,MS Sans Serif,,6,60,63,37,4786,1342177287,128,Button Style,0,,7,45,28,12,253,1342177280,130,Layer,0,,75,45,39,12,252,1342177280,130,Control ID:,0,,7,25,33,12,254,1342177280,130,Caption,0,ID,114,45,25,8,245,1342177280,130,ID ,0,,7,10,33,12,255,1342177280,130,Name,0,name,37,6,99,13,235,1350631552,129,,0,caption,37,24,99,13,240,1350631552,129,,0,layer,37,41,20,12,250,1350631552,129,,0,checkbox,13,72,49,9,180,1342308361,128,Check&box,0,radio,13,85,53,9,185,1342177289,128,&Radio button,0,,73,60,64,37,4782,1342308359,128,Default Value,0,true,78,72,41,9,200,1342308361,128,&True,0,false,78,85,40,9,205,1342177289,128,&False,0,,151,7,51,15,1,1342373889,128,&OK,0,,151,26,51,15,2,1342242816,128,&Cancel,0 ,G4786,Button Style ,S253,Layer ,S252,Control ID: ,S254,Caption STATIC ID,S245,ID ,S255,Name EDIT name,E235, EDIT caption,E240, iedit layer,i250, BUTTON checkbox,B180,FALSE BUTTON radio,B185,FALSE ,G4782,Default Value BUTTON true,B200,FALSE BUTTON false,B205,FALSE ,B1,TRUE ,B2,FALSE 524480,4,25,25,164,148,,,Load Dialog Template,8,MS Sans Serif,,6,6,91,9,3169,1342177280,130,Text,0,templates,6,17,92,110,3170,1352728579,131,,0,OK,108,6,50,14,1,1342242817,128,&Open,0,Cancel,108,22,50,14,2,1342242816,128,&Cancel,0 ,S3169,Dialogs in book LISTBOX templates,L3170, BUTTON OK,B1,TRUE BUTTON Cancel,B2,FALSE staticpropertiesBOX dialogpropertiesBOX groupboxpropertiesBOX iconpropertiesBOX ID_OK alogName about ID_OK 524480,16,25,25,241,153,,,Combobox Properties,8,Helv,,90,63,75,74,2687,1342177287,128,Options,0,Name,37,7,127,12,235,1350631552,129,,0,Layer,37,23,20,12,245,1350631552,129,,0,DropDownLength,71,42,27,12,248,1350631552,129,,0,Items,6,72,75,66,250,1352728708,129,,0,sort,103,82,53,12,270,1342242819,128,So&rt Items,0,scroll,103,99,53,12,18,1342242819,128,Scroll &Bar,0,editable,103,115,53,12,119,1342242819,128,&Editable,0,,183,6,52,15,1,1342242817,128,&OK,0,,183,24,52,15,2,1342242816,128,&Cancel,0,,5,26,27,12,252,1342177280,130,Layer,0,,70,26,42,12,254,1342177280,130,Control ID:,0,,5,9,24,12,251,1342177280,130,Name,0,,5,59,56,9,255,1342177280,130,Combobox Items,0,,5,45,62,12,253,1342177280,130,Dropdown Length,0,ID,112,26,36,8,240,1342177280,130,ID,0 524480,15,25,25,241,153,,,Listbox Properties,8,Helv,,92.00,46.00,78.00,59.00,2667,1342177287,128,Style,0,,6.00,25.00,34.00,12.00,253,1342177280,130,Layer,0,,94.00,26.00,39.00,12.00,254,1342177280,130,Control ID:,0,,6.00,8.00,24.00,10.00,252,1342177280,130,Name,0,,6.00,41.00,45.00,9.00,251,1342177280,130,Listbox Items,0,ID,137.00,26.00,28.00,10.00,240,1342177280,130,ID,0,Name,45.00,6.00,125.00,13.00,235,1350631552,129,,0,Layer,45.00,23.00,27.00,13.00,245,1350631552,129,,0,Items,6.00,53.00,80.00,74.00,250,1352728708,129,,0,single,96.00,62.00,70.00,10.00,3392,1342177289,128,&Single Selection,0,,96.00,76.00,70.00,12.00,275,1342177289,128,&Multiple Selection,0,,96.00,90.00,70.00,12.00,280,1342177289,128,&Extend Selection,0,,106.00,116.00,51.00,12.00,270,1342242819,128,So&rt Items,0,,182.00,5.00,51.00,15.00,1,1342242817,128,OK,0,,182.00,22.00,51.00,15.00,2,1342242816,128,Cancel,0 524480,15,25,25,198,142,,,Static Properties,8,Helv,,75.00,21.00,51.00,50.00,4828,1342177287,128,Justification,0,,7.00,30.00,34.00,12.00,252,1342177280,130,Layer,0,,7.00,49.00,36.00,10.00,253,1342177280,130,Control ID,0,,7.00,9.00,24.00,12.00,251,1342177280,130,Name,0,,7.00,65.00,55.00,9.00,254,1342177280,130,Static Text,0,,47.00,49.00,25.00,8.00,240,1342177280,130,ID,0,,45.00,8.00,82.00,12.00,235,1350631552,129,,0,,45.00,28.00,20.00,12.00,245,1350631552,129,,0,,83.00,30.00,34.00,12.00,255,1342308361,128,&Left,0,,83.00,42.00,34.00,12.00,260,1342177289,128,&Right,0,,83.00,54.00,34.00,12.00,265,1342177289,128,&Center,0,,7.00,76.00,119.00,29.00,250,1352859780,129,,0,,7.00,110.00,51.00,12.00,270,1342242819,128,&Border,0,,141.00,8.00,51.00,15.00,1,1342242817,128,OK,0,,141.00,25.00,51.00,15.00,2,1342242816,128,Cancel,0 bitmapPropertiesBOX customPropertiesBOX ID_OK ID_OK ID_OK ID_OK ID_OK ID_OK aboutBox 524480,10,25,25,209,82,,,Dialog Frame,8,Helv,,9.00,8.00,36.00,8.00,3151,1342177280,130,Caption,0,,82.00,49.00,36.00,8.00,3154,1342177280,130,Y Position,0,,8.00,49.00,36.00,8.00,3155,1342177280,130,X Position,0,,9.00,26.00,36.00,8.00,2987,1342177280,130,Caption,0,Name,53.00,7.00,94.00,12.00,3152,1350631552,129,,0,caption,53.00,25.00,94.00,12.00,2988,1350631552,129,,0,xpos,52.00,47.00,18.00,12.00,3156,1350631424,129,,0,ypos,126.00,47.00,18.00,12.00,3157,1350631424,129,,0,,154.00,6.00,51.00,14.00,1,1342242817,128,&OK,0,,154.00,22.00,51.00,14.00,2,1342242816,128,&Cancel,0 524480,10,25,25,124,114,,,Groupbox Control,8,Helv,name,46,6,74,12,235,1350631424,129,,0,caption,46,21,74,12,240,1350631552,129,,0,layer,46,36,20,12,250,1350631424,129,,0,,69,66,51,15,1,1342242816,128,OK,0,,69,84,51,15,2,1342242816,128,Cancel,0,,5,39,34,12,253,1342177280,130,Layer,0,,5,55,39,12,252,1342177280,130,Control ID:,0,,5,23,33,12,254,1342177280,130,Caption,0,ID,46,55,36,8,245,1342177280,130,ID ,0,,5,8,33,12,255,1342177280,130,Name,0 524480,13,25,25,209,124,,,Icon Properties,8,MS Sans Serif,,59.00,57.00,45.00,48.00,2544,1342177287,128,Icon,0,,6.00,12.00,22.00,10.00,2532,1342177280,130,Layer,0,,73.00,29.00,37.00,9.00,2533,1342177280,130,Control ID:,0,,5.00,28.00,26.00,10.00,2534,1342177280,130,Layer,0,ID,111.00,28.00,22.00,10.00,2542,1342177280,130,Text,0,Current Icon,72.00,74.00,19.00,20.00,2547,1342177283,130, ,0,,5.00,45.00,38.00,10.00,2949,1342177280,130,Layer,0,Name,43.00,10.00,95.00,12.00,2540,1350631552,129,,0,Layer,43.00,26.00,22.00,12.00,2541,1350631552,129,,0,resourceName,43.00,42.00,95.00,12.00,2950,1350631552,129,,0,,151.00,7.00,51.00,15.00,1,1342242817,128,OK,0,,151.00,26.00,51.00,15.00,2,1342242816,128,Cancel,0,Choose Icon,151.00,53.00,51.00,15.00,2543,1342242816,128,Choose &Icon,0 524480,13,25,25,209,142,,,Bitmap Properties,8,MS Sans Serif,,7.00,58.00,133.00,68.00,2544,1342177287,128,Bitmap,0,,7.00,12.00,22.00,10.00,2532,1342177280,130,Layer,0,,79.00,32.00,37.00,9.00,2533,1342177280,130,Control ID:,0,,7.00,32.00,26.00,10.00,2534,1342177280,130,Layer,0,ID,117.00,32.00,23.00,10.00,2542,1342177280,130,Text,0,Current Bitmap,28.00,72.00,96.00,50.00,2553,1342177280,TBKDLGBitmap,,0,Name,42.00,10.00,98.00,12.00,2540,1350631552,129,,0,Layer,42.00,30.00,23.00,12.00,2541,1350631552,129,,0,,6.00,49.00,46.00,10.00,2964,1342177280,130,Layer,0,resourceName,53.00,47.00,87.00,12.00,2965,1350631552,129,,0,,151.00,7.00,54.00,15.00,1,1342242817,128,OK,0,,151.00,26.00,54.00,15.00,2,1342242816,128,Cancel,0,Choose Bitmap,151.00,53.00,54.00,15.00,2543,1342242816,128,Choose &Bitmap,0 ID_OK ID_OK normalScript viewerScript to handle buttonClick hide this window trueAcceptScript to handle buttonClick close this window 524480,14,25,25,241,153,,,Custom Control Properties,8,MS Sans Serif,,7.00,10.00,25.00,12.00,2240,1342177280,130,Text,0,,7.00,31.00,22.00,12.00,2241,1342177280,130,Text,0,,81.00,31.00,37.00,10.00,2242,1342177280,130,Text,0,ID,124.00,30.00,27.00,10.00,2246,1342177280,130,Text,0,,6.00,49.00,45.00,12.00,2247,1342177280,130,Text,0,,5.00,87.00,42.00,12.00,2249,1342177280,130,Text,0,,6.00,68.00,45.00,12.00,2278,1342177280,130,Text,0,Name,40.00,10.00,123.00,12.00,2243,1350631552,129,,0,Layer,40.00,29.00,29.00,12.00,2636,1350631552,129,,0,ClassName,55.00,47.00,107.00,14.00,2248,1350631552,129,,0,Style,55.00,66.00,107.00,14.00,2279,1350631552,129,,0,Text,55.00,86.00,107.00,50.00,2250,1352728580,129,,0,OK,179.00,10.00,54.00,14.00,1,1342242817,128,&OK,0,Cancel,179.00,28.00,54.00,14.00,2,1342242816,128,&Cancel,0 ID_OK ID_OK 524480,6,50,25,137,146,,,About Dialog,8,MS Sans Serif,,6,50,127,50,12,1342177287,128,,0,OK,49,115,40,14,1,1342242817,128,&OK,0,,7,9,18,20,6,1342177283,130, ,0,,9,60,120,34,8,1342177281,130,Text,0,,5,32,126,18,9,1342177281,130,Text,0,,33,14,100,12,10,1342177281,130,Text,0 ,G12, BUTTON OK,B1,TRUE ,h6,icon "Dlg_MyAppIcon" ,S8,All of the dialogs used in this application were created with this application and use the TB30DLG.DLL. ,S9,Copyright 1991-1994 Asymetrix Corporation. ,S10,ToolBook Dialog Editor v 3.0 buttonIDs ID_OK ID_CANCEL linkDLL "tb30dlg.dll" string dialog(string, string) string setValue(string, string, string) string getValue(string, string) set init to _DLGNAME_Init of this book --set init to setValue(init,"","") --DLL function set retValue to dialog(_DLGNAME_BOX of this book, init) --get getValue(retValue, "") --DLL function unlinkDLL "TB30DLG.DLL" to handle show_DLGNAME_ open viewer _DLGNAME_ --uncomment the following lines to do initialization --in viewer _DLGNAME_ -- initialize objects before showing the viewer --end show viewer _DLGNAME_ as modal --if the viewer is still open then a true/Accept --button was pressed if isOpen of viewer _DLGNAME_ --uncomment the following lines to retrieve --information from the dialog --in viewer _DLGNAME_ -- get the data from the objects here --end --otherwise the dialog was canceled else --do anything here to clean up after a cancel to handle keyChar key if ANSIToChar(key) is in "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890@_" set character (item 2 of caretLocation + 1) of my password to ANSIToChar(key) set character (item 2 of caretLocation + 1) of my text to "*" increment item 2 of caretLocation else forward to handle show_DLGNAME_ --Move linkDLL statement to enterApplication handler linkDLL "tb30dlg.dll" string dialog(string, string) string setValue(string, string, string) string getValue(string, string) set init to _DLGNAME_Init of this book --set init to setValue(init,"","") --DLL function set retValue to dialog(_DLGNAME_BOX of this book, init) --get getValue(retValue, "") --DLL function unlinkDLL "TB30DLG.DLL" ToolPalette ge id 2 groupboxScript to handle sized set syssuspendmessages to true set item 4 of bounds of item 2 of my objects to item 2 of my bounds + 255 set item 2 of bounds of item 1 of my objects to item 2 of my bounds + 60 set sysSuspendMessages to false selectedTool select lastRecTool ToolBar ToolBook Dialog Editor - <Untitled> ge id 3 Dialog Page "Dialog" controlProperties Dialog ialog Page "ToolPalette" Page "ToolBar" Page "Help" ToolBar &File newDialog &Open... Ctrl+O OpenDialog &Save... Ctrl+S SaveDialog Sa&ve As... SaveDialogAs &Assign Template to Book... build &Convert Template to Viewer... buildViewer E&xit Alt+F4 &Edit &Undo Ctrl+Z DlgUndo Cu&t Ctrl+X CutControl &Copy Ctrl+C CopyControl &Paste Ctrl+V PasteControl De&lete Del DeleteControl Cl&ear Dialog &Control &Properties... Shift+F6 ControlProperties &FOOBAR Ctrl+G GroupControls &Align Controls AlignControls &Left AlignLeft AlignTop &Right AlignRight &Bottom AlignBottom &View Preview Previe&w Dialog Ctrl+W showDialog 3&D in Preview Preview3D &Help Contents F1 Contents &Quick Help... dialogHelp Edit Editor F3 Browse &About Dialog... undo Ctrl+Z cut Ctrl+X copy Ctrl+C paste Ctrl+V clear Del command Shift+F3 Save Ctrl+S SaveDialog Open Ctrl+O OpenDialog Properties Shift+F6 Properties Preview Dialog Ctrl+W ShowDialog group Ctrl+G group contents F1 contents edit editor F3 Browse --This handler sets the editor another translate *windows messages I want openWindow 4OBJECT s_dialogWindow ZLOGICAL sls = TRUE parentHandle windowHandle "ToolBar" "ToolPalette" initViewer ocurrentPage oclientSize updates q buttons on entering enterWindow "Toolbar" enabled menuItemEnabled(" B"showDialog" ) > 0 selectionChanged makes sure user about saving --closing closeWindow checkSave clearDialog translates 4s_frameWidth DIV sysPageUnitsPerPixel translateWindowMessage oclienthandle on 0x0020 setCursor on 0x00A4 on 0x0204 on 0x0203 on 0x0100 WMkeyDown on 0x0101 WMkeyUp on 0x0104 WMKeyDown owindowhandle on 0 he cursor either ,mode arrow cross hairs --depending on value sysTool. It also has been toggled hWnd, msg, hWndmsg, hitTest, mouseMessage 4s_CurrentCursor = 0x0200 -- correct custom B(LastRecTool -- ToolBook tools, corrisponding B, radioButton, Y, borderlessField, , singleSelectListbox, combobox" enables/disables menuItems --state much taken cstates rest --toolbar menuItemSelected menuName, menuAlias _Browse browse xs_Browse --This handler sets the buttons ToolBar correct toggle state translates emessages WM_SETCURSOR WM_NCRIGHTBUTTONDOWN initViewer toggleState ( ) = down) translateWindowMessage oclienthandle on 0x00A4 on 0x0020 setCursor owindowhandle on 0 on 0x0204 closes editor closeWindow he cursor arrow ever hWnd, msg, hWndmsg, hitTest, mouseMessage 4s_CurrentCursor = 0x0200 <> 4 keeps sync control key. controlState isControl 4LOGICAL s_controlState enables/disables menuItems cdepending on the much taken cstates rest --toolbar enterMenu menuName, menuAlias 4OBJECT s_dialogWindow 4undoFlag 4logical s_Browse R = " isOpen --Keep menuItemEnabled(" "dlgUndo" = "Redo" setMenuItemName(" ,, "Re& z"&TAB&"Ctrl+Z") S, "& = "Cannot "CutControl" Copy") "CopyControl" Paste") "PasteControl" "DeleteControl" clearDialog") "deleteControl" ) = 1 controlProperties ) > 1 "ControlProperties" ) > 1 GroupControls", "& ) = 1 ) > 1 c"AlignControls" = "File" enabled B"ShowDialog" "saveDialog" "saveDialogAs" "build" "BuildViewer" "buildViewer" = "view" "PreviewDialog" = "help" , "Edit Editor"& Q, "Return appripriate cselections menuItemSelected focusWindow = = "DlgUndo" -- = "AlignLeft" ' = "AlignTop" Q = "AlignRight" } = "Alignbottom" = "Preview3D" xmenuItemChecked(" browse --This handler sets the ToolPalette editor --sizes translates IWM_SETCURSOR emessage openWindow 4OBJECT s_dialogWindow oparenthandle windowhandle oclientSize Z) - ( + 10), \ oselectedTool translateWindowMessage oclienthandle on 0x0020 setCursor he cursor arrow over NhWnd, msg, hWndmsg, hitTest, mouseMessage 4s_CurrentCursor = 0x0200 <> 4 sysTool value, --non-ToolBook Fsends correct depressed. gives spacebar --toggle between Jbehavior "bitmap" "icon" "groupbox" "custom" olastRecTool returns Toolpalette. invertedButton --This handler gets the {that Bwas let up over, checks --see a member , inverts uninverts --other inverted sends a click. objectFromPoint( isChild( toggleInvert obuttonPressed buttonClick saves clicked down on FALSE toggleObject LockScreen "ToolPalette" = TRUE oinvertedButton ooldInvertedButton determins objectInQuestion a child ( --subgroup) specified parentInQuestion --These handlers status bar help isOpen "ToolBar" "Toolbar" statusbar "Draws a"&& saved states oldState userProperty ZSTACK ToolBar ToolPalette OldState lineEndsPalette Oldstate buttonClick 4OBJECT s_dialogWindow isOpen focusWindow >= "Button" toggleState ( ) = down) menuItemSelected " U", "dlgUndo" "Toolbar" enabled B"showDialog" "ToolBar") ) > 0) WMKeyDown 0, 0, WMKeyUp 0, 0, statusBar helpText 4OBJECT s_dialogWindow lockScreen sysSuspendMessages = "dlgBox" "dlgInit" buildFrame buildItems FALSE --This handler builds the part s_DialogTemplate ^that has box frame style. buildDialogHeader --calculate , convertint clientSize pixels, Fcaluclating width --because includes Kbut sysPageUnitsPerPixel) frameWidth = pixelsToDlgUnits( cx = cy = fontName ptSize are already they used elsewhere fontPtSize = = 524480 --DS_MODALFRAME + DS_SETFONT + WS_SYSMENU "," & 0 "," & xPos "," & yPos "," & cx "," & cy "," & "," & "," & controls sets up initialValues each , too. buildDialogItems , s_InitialValues ZSTACK objectList, tempControls, ZARRAY STRING CtrlProperties[5] WS_VISIBLECHILD = 1342177280 WS_TABSTOP = 65536 WS_GROUP = 131072 WS_BORDER = 8388608 ObjectList = currentPage )least one CurrentControl been defined, property wsgroup --Step through we find a outside . Use hold without ToolBook "controlProperties" groupObjects = "," & preControl "," & nitems = --Maximum allowable 1> 100 "Only 100 lowed. If you proceed,"&&\ above K101 will be ignored." f"&Continue" "Cancel" --Walk setup strings. currentControl ctrlProperties = pageUnitsToDlgUnits( xSize = ySize = "BUTTON" --Text Caption ctrlText = class = 128 ctrlStyle = begins ends a Fgive -- 9 BS_RADIOBUTTON -- 3 BS_CHECKBOX "pushbutton" -- 1 WS_DEFPUSBUTTON initValue = -- 0 ES_LEFT -- 1 ES_CENTER -- 2 ES_RIGHT fieldType WordWrap -- 4 ES_MULTILINE -- 2097152 WS_VSCROLL H2097152 -- 1048576 WS_HSCROLL H1048576 -- 64 ES_AUTOHSCROLL -- 128 ES_AUTOVSCROLL -- 32 ES_PASSWORD [1] = "iedit" "static" "LISTBOX" --LBS_notify H2097152 [4] = --LBS_SORT [4] = --LBS_MULTIPLESEL [4] = --LBS_EXTENDSEL H2048 "COMBOBOX" + 64 + 2 -- 64 CBS_AUTOHSCROLL -- 2 CBS_DROPDOWN scrollable H2097152 sortItems --CBS_SORT Editable * lineCount dropDownItems "GROUPBOX" [1] c"ICON" H3 --Icon normalGraphic c"BITMAP" "TBKDLGBitmap" ) <> 0 ) - 2 ) <> 0 ) - 2 c"CUSTOM" isType(REAL, bitOR addDialogItem ( [2], , 0, [1], extra ctrlName, ctrlID, , extraBytes, ctrlType, there specified, don't "," & "," & "," & "," & "," & "," & "," & "," & "," & "," & --Bitmaps f"p" picture "b" was taken & "," & "p" & & "," & o(1) "," & "p" & & "," & o(1) --Icons f"h" always & "," & "h" & & "," & o(1) "," & "h" & & "," & o(1) --Custom f"u" userDefined Hcombobox & "," & "u" & & "," & o(1) "," & "u" & & "," & o(1) & "," & & "," & o(1) "," & & "," & o(1) handy savvy users who want their own values, based on those debugging purposes being --written.) buildfromVar pdlgBox, pdlgInit representation specifed --dialogTemplate (See "main" see how converted called following handlers: -- openDialog frameHeight, , xPosition, yPosition eshowing xpos ypos dlgUnitsToPixels( sizeToViewer 4groupItems, dontMakeGroup ctrlProps, dx, dy, cx, cy, ctrlClass ZDWORD controlDefStack C = 2 y = 5 makeLastGroup = inGroup = [groupitems [off description leave just information. --reset array fill bytes editor ] = " have 7 ,!ctrlstyle bitAnd 0x0000000F ) = 7 newObj = drawControl(" , dx, dy,cx,cy) ] = " --It types ~ol(" , dx, dy, cx, cy) ] = " ="ctrlsytle ) = 9 ) = 3 a PUSHBUTTON "DEFPUSHBUTTON ) = 1) ] = 1 removeButtonID("ID_OK") ] = 2 +_CANCEL") getValue( K , "b" & ] = 129 c"EDIT" , dx, dy, cx, cy) ] = " --Has Vertical ScrollBar ) >= 1 ) EHorizontal ) >= 1 ) --AutoHorizontal 80) >= 1 ) --AutoVertical 40) >= 1 ) --Password 20) >= 1 ) --MulitLine 4) >= 1 ) SingleLineWrap integer only ", "i" & P#,"e" & allignment 2) >= 1 1) >= 1 "STATIC" 3) = 3 , dx, dy, cx, cy) ] = " j$, "h" & targetBook 8"&"E& , dx, dy, cx, cy) ] = " ) >= 1 2) >= 1 1) >= 1 %,"s" & ] = 131 ] = " l("listbox", dx, dy, cx, cy) ] = " --assume single --ExtendSelect 800) >= 1 --MulitSelect 8) >= 1 --Sort T 2) >= 1 ) `',"l" & ] = 133 ] = " , dx, dy, cx, cy) ] = " ) >= 1 ) 256) >= 1 ) editable 1) >= 1 ) M(,"c" & ] = " , dx, dy, cx, cy) ] = " (, "p" & ] = " , dx, dy, cx, cy) ] = " p), "h" & , dx, dy, cx, cy) ] = " toggle = --Check beginning ) >= 1 !. makeGroup -- If $.signifies -- another &made i = 1 frequently signify --so denoted unless x, y, )/, height ZPOINT upperLeft, lowerRight = dlgUnitsToPageUnits(x, y) s(x + /, y + "TEMP" + 100, - 60 - 150, + 195 label groupboxScript "ToolPalette" "singleSelect" useWindowsColors .Place Holder" RECTANGLE WHITE icon holder" = NULL "DrawItem"&& &&"failed" manage !4grouping tempSel ) < 2 WindowSized 4OBJECT s_dialogWindow "Toolbar" , = "dialogFrame" sizeToViewer currentPage selectionChanged --This handler keeps the status fields ToolBar -buttons on enabled state --sets Ycurrently selected ZARRAY STRING ctrlProperties[5] electedControl .ControlName isOpen duplicate, bring front, toolbar "ItemSelected" a multiple selectedControl = will have a controlProperties userProperty pageUnitsToDlgUnits( controlPosition controlSize = "<Untitled>" statusBar 1] && --disable FALSE xPos , yPos --calculate Dialog --includes Kbut frame width. clientSize DIV sysPageUnitsPerPixel frameWidth pixelsToDlgUnits( dialogName = "< "DIALOG" && B"showDialog" ) > 0) --controls %well %converts drawn custom, groupbox, bitmap, icon correct array tells editor functions create templates. Celements are: [1] = Type - internal [2] = ID - {ID except pushButtons [3] = Text - [4] = Style bits - values depend on class [5] = Class - actual 4LOGICAL s_dirty 4s_undoFlag --don't want zanything copying --suspend 4messages so creating doesn't more makes sysSuspendMessages = , we ><> " useWindowsColors drawDirect --If a gets type lockScreen so we can find "TEMP" place holder selectedTool "ToolPalette" "Bitmap Place Holder" excludeTab 1] = "BITMAP" 2] = = "TBKDLGBitmap" newObj = " normalGraphic (32 * l),(32 * 1] = "ICON" 2] = 3] = "comment" = "130" a groupBox + 70, - 70 - 150, + 195 label "GROUP BOX" groupboxScript 1] = "GROUPBOX" 2] = 3] = = "128" "Custom 1] = " ctrlproperties[2] = "radioButton" 1] = "BUTTON" 2] = 3] = --style defPushButton, 4] = " = "128" 1] = " 2] = 3] = 4] = " = "128" 1] = " 2] = 3] = 4] = " = "128" fieldType x"singleSelect" 1] = "EDIT" 2] = 3] = vScroll, hScroll, auto Password, integerOnly 4] = " = "129" singleLineWrap 1] = "STATIC" 2] = 3] = = "130" 1] = "LISTBOX" 2] = 3] = , extendSelect, multiselect, 4] = " = "131" >= "combobox" 1] = "COMBOBOX" 2] = 3] = = "133" --If >already has duplicated pasted --we need update its ID 2] = ^that used --on toolBar menuItemEnabled(" = "Undo" = "Cannot preview ) > 0) sure each even unit moved ystem moving another per DialogUnit down nearest DlgUnitsToPageUnits(1, 1) dx = dy = x = y = (x / dx) * dx, (y / dy) * dy --on sized hight, itself (1, 1) dx = dy = x = y = (x / dx) * dx (x / dx) * dx, (y / dy) * dy --on updates delete --Put was ID_OK ID_CANCEL PUSHBUTTON 2] = 1 addButtonID(" 2] = 2 removed Xthings --on --KLUDGE --If shut gone so checking cause Turn ES off --End ) > 0) +*+9; s_dialogWindow initViewer ToolPalette ToolBar openWindow showDialog Toolbar ToolBar enterWindow clearDialog checkSave closeWindow s_dialogWindow s_frameWidth WMkeyUp WMKeyDown setCursor rightButtonDown WMkeyDown properties initViewer LastRecTool rectangle ToolPalette setCursor button, radioButton, checkbox, borderlessField, field, singleSelectListbox, combobox s_CurrentCursor setCursor browse s_Browse Browse menuItemSelected toggleState setCursor rightButtonDown initViewer closeWindow .&+ +E setCursor s_CurrentCursor setCursor toggleState s_controlState ToolBar controlState +*+Dr dlgUndo Paste s_dialogWindow Return to Editor Browse Re&do group BuildViewer clear DeleteControl undoFlag saveDialogAs clearDialog CopyControl Cannot Undo PasteControl controlProperties AlignControls ShowDialog &Group CutControl s_Browse saveDialog &Undo buildViewer Un&group Ctrl+G deleteControl Edit Editor Ctrl+Z PreviewDialog control Control build ControlProperties GroupControls enterMenu +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr +*+Dr DlgUndo s_dialogWindow AlignRight deleteControl undoFlag CopyControl AlignLeft PasteControl Alignbottom CutControl s_Browse Browse Preview3D AlignTop browse ControlProperties GroupControls menuItemSelected s_dialogWindow select setCursor ToolPalette selectedTool openWindow .&+ +E setCursor s_CurrentCursor setCursor groupbox custom lastRecTool bitmap ToolPalette selectedTool invertedButton toolpalette toolPalette selectedTool .isChild ,toggleInvert [ebuttonPressed buttonUp \ebuttonPressed ,toggleInvert buttonDown .isChild ,toggleInvert buttonStillDown invertedButton oldInvertedButton invertedButton ToolPalette toggleInvert FALSE group isChild ToolBar Toolbar Draws a statusbar mouseEnter ToolBar Toolbar statusbar mouseLeave colorTray lineEndsPalette polygonPalette linePalette patternPalette &noldState ToolPalette ToolBar enterBackground colorTray lineEndsPalette polygonPalette linePalette patternPalette ToolPalette ToolBar %noldState leaveBackground +*+Dr s_dialogWindow toggleState button Button buttonClick dlgUndo showDialog Toolbar ToolBar +*+Dr s_dialogWindow WMKeyDown keyDown +*+Dr s_dialogWindow YWMKeyUp keyUp yhelpText statusBar mouseEnter statusBar mouseLeave dlgBox s_dialogWindow button dlgInit 8dlgInit dlgBox buildItems buildFrame paste .&, #> w, #> w, #> s_dialogWindow fontName pixelsToDlgUnits s_DialogTemplate fontPtSize buildDialogHeader .&+ +E .&+ +E ,!J Y + , / + , / + , / + , / + , / ,!J@Y + , / + , / ,!J Y + , / + , / + , / + , / Only 100 dialog controls are allowed. If you proceed, ypageUnitsToDlgUnits CUSTOM xSize rectangle &addDialogItem group groupObjects iedit ctrlStyle center ctrlText FALSE LISTBOX Y%controlProperties radiobutton BUTTON ySize s_DialogTemplate currentControl Continue Cancel s_dialogWindow ]wsgroup COMBOBOX checkbox all controls above layer 101 will be ignored. ]wsgroup &Continue WordWrap right BITMAP controlProperties TBKDLGBitmap class WS_VISIBLECHILD pushbutton static initValue s_InitialValues GROUPBOX buildDialogItems 1, #> 1, #> CUSTOM BITMAP s_InitialValues s_DialogTemplate addDialogItem .&+ +E .&+ +E buildItems s_InitialValues s_DialogTemplate buildFrame buildfromVar +*+Dr s_dialogWindow dlgUnitsToPixels buildFrame ^Ba$9 +*+Dr ,%H.% .&, " + , / + , #> + , / + , / + , / + , / + , / + , / + , / + , #> + , / + , #> + , / .&, " + , #> w, #> + , #> + , / + , / + , / + , / + , / + , / + , #> + , #> + , #> w, #> + , #> w, #> kgetValue s_dialogWindow groupItems removeButtonID of book Z%controlProperties STATIC scrollbar dontMakeGroup newObj COMBOBOX ID_OK BITMAP ID_CANCEL makeGroup TBKDLGBitmap FALSE CUSTOM targetBook drawControl inGroup makeLastGroup toggle radiobutton BUTTON LISTBOX listbox GROUPBOX buildItems +*+Dr 1,!J<Y 1,!JdY DrawItem s_dialogWindow ydlgUnitsToPageUnits CUSTOM STATIC COMBOBOX Bitmap Control Place Holder BITMAP Custom control Place holder ToolPalette LISTBOX GROUP BOX failed groupboxScript GROUPBOX drawControl groupItems dontMakeGroup FALSE tempSel makeGroup +*+Dr s_dialogWindow dialogFrame Toolbar WindowSized +*+Dr s_dialogWindow ypageUnitsToDlgUnits ItemSelected dialogName <Untitled> position controlSize controlProperties showDialog ToolBar Y%controlProperties controlPosition DIALOG pixelsToDlgUnits statusBar selectionChanged 1,!JFY 1,!JFY BUTTON Custom Control Place Holder STATIC newObj singleSelect button Bitmap Control Place Holder TRUE,FALSE,FALSE,FALSE rectangle ToolPalette Y%controlProperties GROUP BOX ToolBar comment LISTBOX field FALSE, s_dialogWindow Cannot Undo checkbox Z%controlProperties FALSE,FALSE radioButton COMBOBOX showDialog BITMAP s_dirty groupBox controlProperties TBKDLGBitmap Custom Toolbar combobox bitmap FALSE,FALSE,FALSE,FALSE,FALSE,FALSE s_undoFlag groupboxScript GROUPBOX selectedTool custom Cannot Undo s_dirty Toolbar yDlgUnitsToPageUnits s_undoFlag moved Cannot Undo s_dirty Toolbar yDlgUnitsToPageUnits s_undoFlag sized Cannot Undo PUSHBUTTON ID_OK ID_CANCEL showDialog Toolbar s_dirty Y%controlProperties addButtonID ToolBar s_undoFlag destroy ctrlID Cannot Undo PUSHBUTTON ID_OK ID_CANCEL showDialog Toolbar s_dirty Y%controlProperties addButtonID ToolBar s_undoFlag destroy S_RTFHOTWORDCREATION HAS_RTFHOTWORDCREATION Rev 1.76 07 Apr 1993 15:15:24 brianm @%echo Clean the object files in the segment $(SEGMENT) HAS_SEEKFILE HAS_SEEKFILE If the file is specific to a project or a feature, please add it to DIR)\$(M %endif HAS_SNGLLIN_HZNTLSCRL HAS_SNGLLIN_HZNTLSCRL MODULE = <string> name of module being built md $(PROJOBJDIR)\$(MODDIR) HAS_STDLBSCROLL HAS_STDLBSCROLL Fixed problem with command line being too long "" != "" HAS_SUBSCRIPTS HAS_SUBSCRIPTS prolog/epilog code is generated. %if ( (%dir($(PROJOBJDIR)\CDBH))) HAS_SYSMETRICS HAS_SYSMETRICS the appropriate file list in the feature section below. # **Please NOTE!** HAS_TBKDIRECTORY HAS_TBKDIRECTORY %if ( (%dir($(PROJOBJDIR)\CDBH))) 524480,21,25,25,247,166,,,Edit Properties,8,MS Sans Serif,,5.00,41.00,73.00,47.00,4848,1342177287,128,Justification,0,,6.00,24.00,34.00,12.00,253,1342177280,130,Layer,0,,95.00,24.00,38.00,12.00,254,1342177280,130,Control ID:,0,,6.00,7.00,24.00,12.00,252,1342177280,130,Name,0,,93.00,37.00,55.00,9.00,6115,1342177280,130,Initial Text,0,,137.00,24.00,25.00,8.00,240,1342177280,130,ID,0,,45.00,6.00,127.00,12.00,235,1350631552,129,,0,,45.00,23.00,20.00,12.00,245,1350631552,129,,0,,21.00,50.00,25.00,12.00,255,1342177289,128,&Left,0,,21.00,61.00,34.00,12.00,265,1342177289,128,&Center,0,,21.00,71.00,31.00,12.00,260,1342177289,128,&Right,0,,94.00,47.00,85.00,61.00,250,1352728708,129,,0,,6.00,100.00,75.00,10.00,205,1342242819,128,&Vertical Scrollbar,0,,6.00,112.00,76.00,10.00,210,1342242819,128,&Horizontal Scrollbar,0,,6.00,124.00,76.00,10.00,215,1342242819,128,&Auto vertical scroll,0,password,6.00,136.00,51.00,10.00,2814,1342242819,128,&Password,0,,98.00,113.00,74.00,10.00,220,1342242819,128,&No Word Wrap,0,,98.00,124.00,57.00,10.00,225,1342242819,128,&Integer Only,0,,98.00,136.00,51.00,10.00,200,1342242819,128,&Multiline,0,,189.00,6.00,51.00,15.00,1,1342242817,128,OK,0,,189.00,24.00,51.00,15.00,2,1342242816,128,Cancel,0 
(.txt)